home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / os2tools / devshell / devman.cmd next >
Encoding:
Text File  |  1991-12-08  |  7.2 KB  |  178 lines
  1. /*------------------------------------------------------*/
  2. /*       DevMan - Online Manual For DevShell            */
  3. /*  (C) Copyright 1991, 1992 Frank V. Castellucci       */
  4. /*             All Rights Reserved                      */
  5. /*                 $Revision: 1.2 $                     */
  6. /*------------------------------------------------------*/
  7. pull choice
  8. rc=0;
  9.  
  10. if(choice = "" ) then do
  11.     r=lineout(,"Use ? <command> or Help <command> for verbose listing");
  12.     r=lineout(," ");
  13.     r=lineout(,"ALIAS       - Lists the alias name and references");
  14.     r=lineout(,"ASET        - Sets alias macro for session");
  15.     r=lineout(,"CONFIG      - Displays Standard Configuration");
  16.     r=lineout(,"CSET        - Sets configuration macro for session"); 
  17.     r=lineout(,"COMSTACK    - Lists command stack");
  18.     r=lineout(,"DSETS       - Lists open data sets");
  19.     r=lineout(,"EXIT        - Exits DevShell and returns to OS");
  20.     r=lineout(,"GO          - Changes to volume assignment");
  21.     r=lineout(,"QUIT        - Same as exit");
  22.     r=lineout(,"REINIT      - Reinits DevShell from config file");
  23.     r=lineout(,"VOLUMES     - List the volume cross assignments");
  24.     r=lineout(,"VSET        - Sets a volume reference for session");
  25.     r=lineout(," ");
  26.     end
  27.     
  28. else
  29.     do
  30.     select
  31.         when (choice = 'ALIAS') then do
  32.             r=lineout(," "); 
  33.             r=lineout(,"Usage : alias ");
  34.             r=lineout(," "); 
  35.             r=lineout(,"    Displays the configuration alias list");
  36.             r=lineout(," "); 
  37.             end
  38.             
  39.         when (choice = 'ASET') then do
  40.             r=lineout(," ");
  41.             r=lineout(,"Usage : aset <aliasname> <assignment>");
  42.             r=lineout(," ");
  43.             r=lineout(,"    Re-assigns alias <aliasname> with")
  44.             r=lineout(,"    <assignment>. Example:");
  45.             r=lineout(," ");
  46.             r=lineout(,"    aset ed exec using EDIT ?");
  47.             r=lineout(," ");                   
  48.             r=lineout(,"    would assign alias ed to indirectly"); 
  49.             r=lineout(,"    execute the application configured for EDIT ");
  50.             r=lineout(,"    and prompt the user for an argument string");
  51.             r=lineout(," ");
  52.             r=lineout(,"    If an entry for edit existed, it would");
  53.             r=lineout(,"    be replaced. If no entry exists, then a new");
  54.             r=lineout(,"    alias is created. This assignment will ");
  55.             r=lineout(,"    last for the current session only");
  56.             r=lineout(," ");
  57.             end
  58.             
  59.         when (choice = 'CONFIG') then do
  60.             r=lineout(," ");  
  61.             r=lineout(,"Usage : config ");
  62.             r=lineout(," "); 
  63.             r=lineout(,"    Displays the configuration replacement");
  64.             r=lineout(,"    parameters for the editor, browser, etc");
  65.             r=lineout(," ");  
  66.             end
  67.             
  68.         when (choice = 'CSET') then do
  69.             r=lineout(," ");  
  70.             r=lineout(,"Usage : cset <configname> <assignment>");
  71.             r=lineout(," ");   
  72.             r=lineout(,"    Re-assigns name <configname> with")
  73.             r=lineout(,"    <assignment>. Example:");
  74.             r=lineout(," ");
  75.             r=lineout(,"    cset EDIT C:\OS2\E.EXE");
  76.             r=lineout(," ");             
  77.             r=lineout(,"    would assign configname EDIT to C:\OS2\E.EXE"); 
  78.             r=lineout(," ");
  79.             r=lineout(,"    If an entry for EDIT existed, it would");
  80.             r=lineout(,"    be replaced. If no entry exists, then a new");
  81.             r=lineout(,"    configname is created. This assignment will ");
  82.             r=lineout(,"    last for the current session only");
  83.             r=lineout(," ");
  84.             end
  85.        
  86.             
  87.         when (choice = 'COMSTACK') then do
  88.             r=lineout(," ");
  89.             r=lineout(,"Usage : comstack | coms");
  90.             r=lineout(," "); 
  91.             r=lineout(,"    Lists the command stack with the oldest");
  92.             r=lineout(,"    entry on the top ( position 0 ).");
  93.             r=lineout(," ");
  94.             r=lineout(,"    Individual entries ( 0 - x ) can be re-");
  95.             r=lineout(,"    executed by entering the number to the");
  96.             r=lineout(,"    left of the command displayed in the list");
  97.             r=lineout(," "); 
  98.             end
  99.             
  100.         when (choice = 'DSETS') then do
  101.             r=lineout(," ");  
  102.             r=lineout(,"Function does not exist, so neither does help");
  103.             r=lineout(," ");
  104.             end
  105.  
  106.         when (choice = 'EXIT') then do
  107.             r=lineout(," ");  
  108.             r=lineout(,"Usage : exit");
  109.             r=lineout(," ");
  110.             r=lineout(,"    Exits DevShell and returns to OS or other shell");
  111.             r=lineout(," ");
  112.             end
  113.             
  114.         when (choice = 'GO') then do
  115.             r=lineout(," ");  
  116.             r=lineout(,"Usage : go <volsassign> | <path>");
  117.             r=lineout(," ");
  118.             r=lineout(,"    changes directory and drive to either the");
  119.             r=lineout(,"    volume assigned in volassign or the drive");
  120.             r=lineout(,"    and directory as specified in path");
  121.             r=lineout(," ");
  122.             end
  123.             
  124.         when (choice = 'QUIT') then do
  125.             r=lineout(," ");  
  126.             r=lineout(,"Usage : quit");
  127.             r=lineout(," ");
  128.             r=lineout(,"    Exits DevShell and returns to OS or other shell");
  129.             r=lineout(," ");
  130.             end
  131.             
  132.         when (choice = 'REINIT') then do
  133.             r=lineout(," "); 
  134.             r=lineout(,"Usage : reinit "); 
  135.             r=lineout(," "); 
  136.             r=lineout(,"    Reinits DevShell from configuration file"); 
  137.             r=lineout(," "); 
  138.             end
  139.             
  140.         when (choice = 'VOLUMES') then do
  141.             r=lineout(," ");  
  142.             r=lineout(,"Usage : volumes");
  143.             r=lineout(," ");   
  144.             r=lineout(,"    Displays the list of volume drive and directory");   
  145.             r=lineout(,"    assignments");   
  146.             r=lineout(," ");   
  147.             end
  148.             
  149.         when (choice = 'VSET') then do
  150.             r=lineout(," ");  
  151.             r=lineout(,"Usage : vset <volname> <path>");
  152.             r=lineout(," ");   
  153.             r=lineout(,"    Re-assigns name <volname> with")
  154.             r=lineout(,"    <path>. Example:");
  155.             r=lineout(," ");
  156.             r=lineout(,"    vset cursrc F:\DEVLP\SRC");
  157.             r=lineout(," ");             
  158.             r=lineout(,"    would assign volname cursrc to F:\DEVLP\SRC"); 
  159.             r=lineout(," ");
  160.             r=lineout(,"    If an entry for cursrc existed, it would");
  161.             r=lineout(,"    be replaced. If no entry exists, then a new");
  162.             r=lineout(,"    volname is created. This assignment will ");
  163.             r=lineout(,"    last for the current session only");
  164.             r=lineout(," ");   
  165.             end
  166.             
  167.         otherwise
  168.             r=lineout(," ");
  169.             r=lineout(,"Help not found for :" choice);
  170.             r=lineout(," ");
  171.             rc=1
  172.         end
  173.         
  174.     end
  175.     
  176. exit (rc);
  177.  
  178.